home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 10 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  44 lines
  1. 50 rem zusammengesetztes sprite
  2. 60 rem
  3. 70 rem spritedaten
  4. 100 for n=8192 to 8254:read q:poke n,q:next
  5. 101 data 0,60,0,0,255,0,3,255,0
  6. 102 data 3,213,0,3,209,64,3,85,64
  7. 103 data 3,215,0,3,221,0,0,213,0
  8. 104 data 0,84,0,0,148,0,0,168,0
  9. 105 data 0,168,0,2,170,0,2,138,0
  10. 106 data 2,138,128,10,42,128,10,42,128
  11. 107 data 10,42,128,10,42,128,10,42,128
  12. 108 rem ******************************
  13. 200 for n=8256 to 8318:read q:poke n,q:next
  14. 201 data 5,170,128,5,106,128,1,106,0
  15. 202 data 2,170,0,2,170,128,2,170,128
  16. 203 data 2,171,128,2,171,128,2,171,128
  17. 204 data 2,171,128,2,170,128,2,170,0
  18. 205 data 2,168,0,14,168,0,62,168,0
  19. 206 data 62,168,0,15,255,0,3,255,192
  20. 207 data 3,255,192,0,0,0,0,0,0
  21. 208 rem ******************************
  22. 300 rem programmstart
  23. 310 rem
  24. 320 rem vorbereitungen
  25. 330 rem
  26. 340 rem farben
  27. 350 poke53280,5:poke53281,0
  28. 360 poke53285,8:poke53286,11:poke53287,7:poke53288,9
  29. 370 rem
  30. 380 poke53276,3:rem sprite 0 + 1 multicolor
  31. 390 x0=53248:y0=53249
  32. 400 x1=53250:y1=53251
  33. 410 xp=160:yp=120
  34. 415 rem
  35. 416 poke2040,128:poke2041,129:rem spritezeiger 0 + 1 setzen
  36. 420 rem
  37. 430 rem positionieren
  38. 440 rem
  39. 450 pokex0,xp:pokey0,yp
  40. 460 pokex1,xp:pokey1,yp+21
  41. 470 rem
  42. 480 poke53269,3:rem sprite 0 + 1 an
  43. 490 end
  44.